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CONJUNTOS 01 
DUAS DBMENSO 



DEFINICAO DE MATRIZES 



ENTRE DADOS EM UMA MATRIZ 
COMO PROGRAMAR MATRIZES 




RECUPERACAO DE INFORMACQES 
USOS PARA AS MATRIZES 



Se voce tetn uma grande quantidade de 
dados inter-relacionados, a 
informa^ao pode estar perdida entre 
eles. Coloque-os numa matriz 
e computador extraira 
exatamente a informa^ao desejada. 



Agora que voce ]a conhece como um 
conjunto pode ser empregado para con- 
servar inForma^joes em um programa (li- 
gao Conjuntos: Caixas de !nforma(;ao, 
pagina 192), podemos passar ao estudo 
de matrizes, Matriz (ou matrix) e to- 
do conjunto bidimetisional que serve de 
meio para armazenar grupos de dados 
inter-relacionados. 

Um conjunto bidimensional e, grafi- 
camente, como uma pilha de gavetinhas, 
onde cada gaveta serve para armazenar 



um linico dado. Esia c uma maneira 
muito conveniente de lidar com infor- 
magoes pois, para localizar oma delas, 
basta se referir a um elemento do con- 
junto, por meio dos seus numeros de It- 
nha e de col una. 

A matriz armazena (tens reais, tals 
como OS parafusos da ilustragao abai- 
xo, onde se pode encontrar imediata- 
mente a caixa que contem parafusos de 
latao de 38 mm, ou para qualquer ou- 
tra que se esteja procurando. Neste ca- 
se o dado da matriz c o numero de pa- 
rafusos em cada caixa. 

A matriz pode tambem guardar in- 
formacoes abstratas, como o niimero de 
revendedores de automovels, discrimi- 
nados segundo a sua nacionalidade e 
marca dos carros vendidos. 

Informaifoes como esta sao freqiien- 
temente colecionadas como resuliado de 
levantamentos, que sao a base para o 



programa exposto neste artigo. Entre- 
tanto, a estrutura do programa e a mes- 
ma para qualquer matriz bidimensional, 
pouco imponando o tipo de informa^ao 
que ela contem. 

Como exemplo, suponha que voce se- 
ja um professor interessado em classifi- 
car OS animais de estimagSo trazidos por 
um conjunto de crian^as- E"^ primeiro 
lugar, seria preciso anotar o nome das 
criani;as e descrever quantos animais de 
cada grupo elas possuem. A lista seria 
mais ou menos assim; 

Silvia: dois periquitos, um coetho. 
Joao: um cachorro, quatro peixes. 
Carlos: dois hamsters, um gato. 



Recur»i<i muito ulil para Brmazenar dados, 
a!> matrices servcm lamb^m para 
classificar pequenos itens como parafusoti. 




i 



l^^UdSlfX^ACAO BASIC l| 



j^ 



Jaci: um cachorro, urn gato, urn hamster. 
Beto: um raio, um coclho, dois peixes. 

Entretanto, em uma lista como essa 
torna-se um tanto dificil extrair infor- 
mai;6es como "quantas pessoas pos- 
suem gat OS?", ou "quern tem mais de 
quatro animals?" — e quanto maior for 
a iisia, mais dificil sera tambem obter 
respostas. 

A melhor maneira de resolver o pro- 
blema seria distribuir as informa?6es em 
forma de tabefa ou quadro, com o no- 
me dos animais dispostos no alto e o das 
criangas a esquerda. Pois bem, e exata- 
mente assim que funciona uma matriz 
bidimensional. 

Em um exemplo pequeno como este 
e simples encontrar a resposta para qual- 
quer pergunta sobre os dados. Entretan- 
to, o computador trabalha com um in- 
findavel numero de informa<;6es. Se vo- 
ce examinar todo o conjunto de dados 
para descobrir quern tem pelo menos um 
gato, ou se quiser saber o nome das pes- 
soas que possuem ratos, verificara que 
trabalho sera tanto maior quanto mais 
ampla for a quantidade de dados. For 
sone, o computador pode cumprir essa 
tarefa em questao de segundos. 



DEFINA A MATRIZ 



Equacionado o problema, o passo se- 
guinte sera colocar a informacao den- 
tro dc computador. Se voce voltar as pa- 
ginas 1 92 a 1 95 vera como definir e usar 
uma matriz unidimensiona! (tambem 
chamada de conjunto). Matrizes bidi- 
mensionais sao muito similares, envol- 
vendo apenas um pouco mais de traba- 
lho para serem definidas. 

Uma matriz unidimensional pode ser 
escrita na forma A(N), onde N e o mi- 
mero dos seus elementos. Uma matriz 
bidimensional, por sua vez, e defintda 
como A<L,C), onde Leo numero de li- 
nhas e C o numero de colunas. Na ver- 
dade, pouco importa se vocS a definir 
de forma invertida, como A(C,L), com 
as colunas antes das tinhas, desde que 
seja coerente com a primeira ou a segun- 
da defini^des. 

Contudo, mesmo trabalhando com 
uma matriz bidimensional, voce preci- 
sard definir duas matrizes unidimensio- 
nais que sirvam de cabe^alho para as co- 
tunas e para as linhas (no nosso caso, 
uma matriz contera o nome das crian- 



A!tsim como as bolinhas da iluslra^ao, 

distribuidas ordeitadamenle 

se|>undo seu Umanho e kot, as informa(6es 

devem iter armazenadas na memdria 

de acordo com o grupo a que pertencem. 






(;as e a oulra o nome dos animals). A 
matriz bidimetisional contera os dados, 
Vamos chamar as duas primeiras ma- 
trices de PETS (C) e CHS (R) e a matriz 
de dados de N (R,C). Uma outra ma- 
triz, PT (R), conteri o niimero total de 
animals em cada linha. No Spectrum, as 
matrizes sac roiuladas de p$ (c), cS (r), 
n (r, c) e p (r), pois e permitido apenas 
um caractere para a forma^ao dos no- 
mes. O programa nao funcionara no 
ZX-81. Els um programa para dimen- 
sionar a matriz e ier os dados de um co- 
mando DATA. 



100 C-7:R-5 
110 DIM PETS(C 
T(R) 

120 FOR J-ITOC 
130 FORJ-ITOR 
140 FOR J-ITOH 
150 FORK-ITOC 
160 HEAD N(J,K 
3000 DATA PERI 
RO.PEIXE.RATO 
3010 DATA SILV 
CI.BETO 
3020 DATA 2,0, 
30 30 DATA 0.0, 
3040 DATA 0,1, 
3050 DATA 0,1, 
3060 DATA 0,0, 



),CH${fl>,NCR,C) ,P 

iREADPETS (J) :NEXT 
READCHS(J) :NEXT 



) : NEXT: NEXT 
QUITO , GATO , CACHOH 
HAMSTER, COELHO 
lA, JOAO, CARLOS, JA 

0,0,0,0,1 
1,4,0,0,0 
0,0,0,2,0 
1,0,0,1,0 
0,2,1,0,1 






100 LET 
110 DIM 
DIM n(r, 
120 FOR 
NEXT j 
130 FOR 
NEXT J 
140 FOR 
150 FOR 
160 READ 



c-7: LET r-5 
pS(c,7) : DIM cS(r.5) 
c) : DIM p(r) 
j»l TO c: READ p5(j) 



2-1 TO r: READ c${j) 



3000 DATA 
ACHORRO" , 
R" , "COELHO 
3010 DATA 
FERNANDA" , 
3020 DATA 
3030 DATA 
3040 DATA 
3050 DATA 
3060 DATA 



J-1 TO r 
k-1 TO c 
n(J,k) : NEXT K: NEXT 

"PERIQUITO" , "GATO" , "C 
PEIXE" , "RATO' , "HAMSTE 



'RODRIGO" 
BEATRIZ" 



"RICARDO" 
"JUNIOR" 

1 







1 



As variaveis R e C foram usadas pa- 
ra facilitar a adaptagao do programa: 
aflnal, c improvdvei que sua matriz te- 
nha mesmo numero de linhas e de co- 
lunas que a que apresentamos aqul. As- 
sim, tudo o que voce tern a fazer e tro- 
car OS ntimeros na linha 100 e, logica- 
mente, as informafocs nas linha.s dos co- 
mandos DATA. 

Note agora que os dados entram na 
matriz. Existe uma linha para o cabe(;a- 



Iho das colunas, outra para o cabe^alho 
das linhas e uma para cada linha da ma- 
triz principal. Note tambem que voce 
deve entrar um item de dado para cada 
espago na matriz, mesmo que ele seja ze- 
ro, ou computador respondera com 
uma mensagem de erro. 

Agora que os dados estao dcntro do 
computador, voce deve decidir o que fa- 
zer com eles. Um de sens recursos eofe- 
recer tanias op?oes quanto possivel: afi- 
nal, e o computador que vai trabalhar, 
e nao voce. 



Sera melhor descrev er as op(;6es em 
forma de menu. E para a pesquisa dos 
animals voce provavelmente precisara 
do seguinte: 



300 LET fo-0: CLS 

310 PRINT ■ '"MENU" 

320 PRINT '"1- LISTAH ANIMAIS" 
LISTAR CRIANCAS' 
INTRODUZIR TIPO 



330 PRINT "2- 

340 PRINT "3- 

DE ANIMAL" 

350 PRINT '4- 

DA CRIANCA" 

360 PRINT "5- 

DE ANIMAIS" 

370 PRINT "6- MOSTRAR A MATRIZ 



INTRODUZIR NOME 



INTRODUZIR NUMER 



380 PRINT ''"SELECIONE OPCAO" 

390 INPUT a 

395 IF a<l OR a>6 THEN GOTO 

390 

400 CLS 

410 GOSUB (3*100+400) 

420 GOTO 300 

DQ 

No TRS-80, multiplique por 2 os va- 
lores utilizados com o PRINT®. 

300 FOUND-0:CLS 

310 PRINT #43, "MENU" 

320 PRINT €98, "1 LISTAH ANIKAIS 

330 PRINT ei30,"2 LISTAR CHIANC 

AS 

340 PRINT §162, "3 INTRODUZIR TI 

PO DE ANIMAL 

350 PRINT €194, "4 INTRODUZIR NO 

ME DA CRIANCA" 

360 PRINT §226, "5 INTRODUZIR NU 

MERO DE ANIMAIS" 

370 PRINT §258, "6 MOSTRAR A MAT 

RIZ" 

380 PRINT: PRINT"ESCOLHA A OPCAO 

390 INPUT A 

395 IF A<1 OH A>6 THEN 390 

40 CLS 

410 ON A GOSUB 500,600,700,800, 

900,1000 

420 GOTO 300 



IIU j lU 



m 



7: PRINT" 3. INTRODUZI 



INTR0DU2I 



300 FO-0:CLS 

310 LOCATE 17, 1 ;PRINT"MENU" 

3 20 LOCATE 7, 4: PRINT" 1. LISTAH 

ANIMAIS' 

330 LOCATE 7rPRINT"2. LISTAR CR 

lANCAS" 

340 LOCATE 

R TIPO D£ ANIMAL" 

350 LOCATE 7:PRINT"4. 

R NOME DE CRIANCA" 

360 LOCATE 7:PHINT"5. 

R NOMERO DE ANIMAIS" 

370 LOCATE 7:PRINT"6. 

MATRIZ" 
380 PRINT: PR INT: LOCATE 20: PRINT 
"OPCSO"; 
390 INPUT A 

395 IF A<1 OR A>6 THEN 390 
400 CLS 

410 ON A GOSUB 500,600,700,800. 
900,1000 
420 GOTO 300 



INTRODUZI 



MOSTRAR A 



aiL^ 



INTRODUZ 



INTRODUZ 



300 FO - 0: HOME 

310 HTAB 18: VTAB 2; PRINT "ME 

NU" 

320 VTAB 5: HTAB 8; PRINT "1. 

LISTAR ANIMAIS" 

330 HTAB 8: PRINT "2. LISTAR C 

RIANCAS" 

34 HTAB 8: PRINT ' 

IR TIPO DE ANIMAL" 

350 HTAB 8: PRINT ' 

IR NOME DE CRIANCA" 

360 HTAB 8: PRINT "5. INTRODUZ 

IR NUMERO DE ANIMAIS" 

3 70 HTAB 8: PRINT "6, MOSTRAR 

A MATRIZ" 

330 PRINT : PRINT : HTAB 20: P 

RINT "OPCAO "; 

390 INPUT A 

395 IF A < 1 OR A > 6 THEN 390 

400 HOME 

41C ON A GOSUB 500,600,700,600 

,900,1000 

420 GOTO 300 



ESCREVA AS SUB-flOTINAS 



As sub-rotiiias a suguir servjrao para 
o int'cio do irabaiho, embora, mais tar- 
de, voce possa adicionar ouiras opgoes. 
A primeira imprime apenas a lista dc 
animais, fazendo uma procura na ma- 
triz PETS( ) ou p$( ). A segunda faz a 
mesma coisa para imprimir a lista de 
crianfas. 



499 REM ** OPCAO 1 ** 

500 PRINT ''"LISTA DE ANIMAIE 
,510 PRINT ' ' 
|520 FOR j-1 TO c 



530 PRINT pS (j) 

540 NEXT J 

550 PRINT '■" PHESSIONE QUALQU 

ER TECLA PARA HETORNAR" 

560 PAUSE 

5 70 RETURN 

599 REM «« OPCAO 2 ** 

600 PRINT ■'"LISTA DE CRIANCAS 

ff 

610 PRINT ' ' 

620 FOR j-1 TO r 

630 PRINT C$(j) 

640 NEXT J 

650 PRINT ' '"PRESSrONE QUALOUE 

H TECLA PARA RETORNAR" 

660 PAUSE 

670 RETURN 



QOrh"^ 



499 REM Itt OPCAO 1 fit 

500 PHINTTAB(5) ["LISTA DE ANIMA 
IS" 

510 PRINT: PRINT 
520 FOR J-ITOC 
530 PRINT PETS (J) 
540 NEXT 

550 PRINT: PRINT"PHESSIONE QUALQ 
UER TECLA PARA RETORNAR" 
560 IF INKERS-" "THEN560 
5 70 RETURN 

599 REM ttt OPCAO 2 t*t 

600 PRINTTAB(5) ; "LISTA DE CRIAN 
CAS" 

610 PRINT:PHINT 
620 FOR J-ITOH 
630 PRINT CHS (J) 
640 NEXT 

650 PRINT: PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR" 
660 IF INKEYS-""THEN660 
67 RETURN 



499 REM 

500 PRINT 
NIMAIS" 
510 PRINT 



«** OPCAO 1 *** 
TAB( 10) "LISTA DE A 



PRINT 
520 FOR J - 1 TO C 
530 PRINT PETS (J) 
540 NEXT 

550 PRINT : PRINT "PRESSIONE Q 
UALQUEH TECLA PARA RETORNAR" ; 
560 GET AS 
570 RETURN 

599 REM *** OPCAO 2 *** 

600 PRINT TAB( 10);"LISTA DE 
CRIANCAS" 

610 PRINT ; PRINT 
620 FOR J - 1 TO R 
630 PRINT CHS (J) 
640 NEXT 

650 PRINT : PRINT "PRESSIONE Q 
UALQUEH TECLA PARA RETORNAR" : 
660 GET AS , <^ 
670 RETUBN 

rtSpi^ao ? (5 a mais interessante. Se 
digilai o nome de um animal, o 
conjpiuador imprimira uma lista de 
crianvas que tern no minimo um deles. 



infbrmando ainda quantos especimes 
cada crianga possui. 



699 l^EM ** OPCAO 3 ** 

700 PRINT ''"INTRODUZA TIPO DE 
ANIMAL" 

705 DIM 13(7); INPUT LINE l$ 
710 PRINT '"PEESOAS QUE TEM UM 

"11$ 
720 FOR J-1 TO c 
730 IF pS(j)-lS THEN LET fo-j 
740 NEXT J 

750 IF fo-0 THEN PRINT " ANIM 
AL NAO ENCONTRADO. TENTE OU' 
RA VEZ.": GOTO 700 
760 FOR J"l TO r 



7; 
$ 
7: 
71 
E] 
71 
71 



6! 
7( 




A malriz mo^itra alguns 
revendedores de 
carros clasiiificados por 
pais c marea de aulomtivel 



w 
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770 IF n(j,fo)>0 THEN PSINT c 

S(J) ;" ";n(j,fo) 

775 NEXT J 

780 PRINT ' ' ■' PRESSIONE QUALQU 

EH TECLA PARA R|:T0HNAR" 



7B5 
790 



PAUSE 
RETURN 



DD^'^i 



^ 



699 REM Itt OPCAO 3 ttl 

700 PHINTTAB(5) ; "DIGITE TIPO DE 



ANIMAL" 
705 PRINT" LISTA DE TODOS QUE TB 
M "; 

710 INPUT PS 
715 PRINT r PRINT 
720 FORJ-ITOC 
730 IFPETS tJ)-P$THENFO-J 
740 NEXT 

750 IFFO-OTHENPRINT"AN1«AL N&O 
ENCONTRADO. TENTE DE NOVO !": GOT 
0700 
760 FORJ-ITOR 



770 IFN(J,FO) >OTHENPBINTCH$(J) ; 

" "iNCJ.FO) 

775 NEXT 

790 PRINT ;PHINT"PBESSIONE fiUALQ 

UER TECLA PARA HETOHNAR" ; 

785 IFINKEyS-""THEN7e5 

790 RETURN 



[KW^ 



699 REM *«* 

700 PRINT 
TIPO DE ANIMAL" 
705 PRINT TAB( 
ODOS QUE TEM " ; 

INPUT PS 
PRINT : PRINT 
FOR J - 1 
IF PET5(J 




OPCAO 3 *** 
TAB{ 10) ; "DIGITE 



5) ; "LISTA DE T 



TO C 
- PS THEN FO 



PRINT "ANI 
TENTE 



PRI 



NEXT 

IF FO - THEN 
MAL NAO FOI ENCONTRADO. 
NOVAMENTEl": GOTO 700 
760 FOR J - 1 TO B 
770 IF N [J,FO) > THEN 
NT CHS CJ) :" "iNfJ.FO 
775 NEXT 

780 PRINT : PRINT "PRESSION 
E QUALQUER TECLA PARA RETOR 
NAB" 
785 GET AS 
790 RETURN 



Esta rot inae mais complica- 
da, de modo que valf a pena 
explica-la com mais detalhes. 
A linha 7IOguarda nossa 
enirada na variavel PS (iS no 
Spectrum). Digamoji, por 
exempio, que nossa entra- 
da seyd "GATO"; assim. 
P$ = "GATO'MouiS = 
"GATO"). Aslinhas720 
a 740 verificam se ha al- 
gum "GATO" na lista 
de animals. Em caso 
positivo, a variavel FO 
recebera o niimero da 
coiuna em que "GATO" 
tbi achado. No nosso caso, FO = 2 
porque "GATO" esta na coiuna 2. 
Se o computador aiingir a linha 750 
e FO for igual a (ou seja, se seu valor 
for igual a na linha 300), isso signifi- 
ca que o animal pedido nao esia na lis- 
ta. Em conseqiiencia o programa reco- 
me^ara. 

As linhas 760 a 775 percorrem cada 
elemento na coiuna 2. Se algum elemen- 
to for maior que 0, isso significa que 
a pessoa nessa linha tern um gato e seu 
nome sera impresso junto com a infor- 
mai;ao de quantos animals dessa espe- 
cle ela tern. 

Verlflque o programa e veja se voce 
pode segulr o que o compuiador esta fa- 
zendo a cada passo. A op^ao 4 permlte 



1 



entrar o nome de uma pessoa para ver 
a lista de seus animais. 

O programa funcionara de modo 
quase igual ao da ultima rotina. Desia 
vez. entretanto, o computador procura- 
ra por uma linha particular da matrix, 
e nao por uma coluna, como acontecia 
no exeraplo anterior. 



;99 REM "* OPCAO 4 ** 

800 PRINT ' ' "INTRODUZA NOME 

DA CBIANCA" 

805 DIM fS(S): INPUT LINE f$ 

810 PRINT "ANIMAIS PERTENGENTE 

S A " ;fS 

815 PRINT ' ' 

820 FOB j-1 TO r 

830 IF cS(j}=eS THEN LET fo'j 

&iO NEXT J 




Que problem as podem ocorrer 
com la^os multiples? 

Definir uma matri? permite exercitar 
seus conhecimentos sobre os coman- 
dos FOR. ..NEXT e IF., THEN; (tente 
contar quantos desses comandos exis- 
tem nos programas ai resentados aqui; 
voce logo vai perceber que eles sao 
miiitosK Por6m, a parte mais diffcil da 
programacao de matrizes diz respeito 
ao uso de iacos FOR. ..NEXT multiplos, 
ou "anmhados" (isto 6. um dentro do 
outrol. Com efeito, ^ nessa parte que 
OS iniciantes, e mesmo os programado- 
res experientes, mais se confundem. 

Examine as linhas dos programas do 
artigo. Elas sao responsclveis pela iei- 
tura dos dados armazenados nas linhas 
DATA 

Cada linha de DATA corresponde a 
uma linha da matnz de dados, de modo 
que o FOR, ..NEXT que controla a leitu 
ra das linhas deve vir antes (laco mais 
externol. Se a linha de DATA contivesse 
OS elementos de uma coluna da matriz, 
tenamos que usar como FOR... NEXT 
externo aquele que l§ as colunas. 

E por isso que o conjunto i dimen- 
sionado como N (L,C), em vez de N (C, 
L). A ordem dos indices de linha e co- 
luna no comando DIM nao e muito im- 
portante. desde que voce os "faga 
corresponder aos lagos FOR. ..NEXT. 

Os cabegalhos para as linhas e co- 
lunas devem ser definidos separada- 
mente, para facilitar a compreensao. 



850 IF fo-0 THEN PRINT ' '"NOM 

E NAO ENCONTHADO. TENTE OUTHA V 

EZ": GOTO 800 

860 FOR j-1 TO C 

870 IF n(fo,j)>0 THEN PRINT n 

(fo, J) ;" ":p$(j) 

S75 NEXT J 

&e0 PRINT ' '" PBESSIONE QUALQU 

ER TECLA PARA RETORNAR" 

8B5 PAUSE 

890 RETURN 
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799 HEM t** OPCAO 1 Ml 

800 PRINTTAB (2) ; "DIGIl K O NOME 
DE UMA CRIANCA" 

805 PRINT"LISTA DE TODOS OS ANI 
MAIS QUE PERTENCEM A "; 
810 INPUT FS 
815 PRINT:PRINT 
820 FORJ-ITOR 
830 IFCHS (J) -FSTHENFC-J 
840 NEXT 

850 IF F0-OTHENPRINT:PRINT"NOME 
NAO ACHADO, TENTE NOVAMENTE!": 
GOTO800 
860 FORJ-ITOC 

870 IFNtFO, J)>OTHENPRINTN1FO,J) 
l" "jPETStJ) 
875 NEXT 

880 PRINT; PRINT"PRESS:ONE QUALQ 
UER TECLA PAPA RETORNAR" ; 
885 IFINKEVS-""TirENe85 
890 RETURN 
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799 REM *** OPCAO 4 *** 

aOO PRINT TAB< S);"D1GITE N 

OME DE UMA CRIANCA" 

BOS PRINT "LISTA DE TODOS OC A 

NIMAIS QUE PERTENCEM A "; 

aiO INPUT FS 

815 PRINT : PRINT 

820 FOR J - 1 TO R 

830 IF CHS (J) - FS THEN FO •= J 

840 NEXT 

850 IF FO - THEN PRINT ; PR 

INT "NOME NAO ENCONTRADO. TENTE 

NOVAMENTE ! " : GOTO 800 
860 FOR J - 1 TO C 
870 IF N(FO,J) > THEN PRINT 

N(FO,J) ;" "iPETSCJ) 
875 NEXT 

aeO PRINT : PRINT "PHESSIONE Q 
UALOUER TECLA PARA RETORNAR" ; 
885 GET AS 
890 RETURN 

A op?ao 5 pede que voce entre um 
numero e imprime a lista de pcssoas que 
tern no minimo esse niimero de animais. 
Ela tambem informa quantos animaiis 
cada pessoa tern, 

Digite entao a proxima sub-rotina da 
seguinte forma: 



899 REM ** OPCAO 5 ** 



900 PRINT ' " DIGITE UM NUMEHO 

PARA LISTAB TODOS OS WE IE 

M AO MENOS EETE NUMEBO DE ANI 

MAIS" 

910 INPUT 3 

915 PRINT ' ' 

920 FOR j-1 TO r 

930 LET p( j)-P(j)+n{j.k) 

935 NEXT k 

940 LET p(j)-0 

945 LET p(j) -0 

950 NEXT J 

955 IF fo-0 THEN PRINT ''"NIN 

GUEM TEM TANTOS ANIMAIS !" 

960 PRINT ' "■ PRESSIONE QUALQU 

ER TECLA PARA HETORNAR" 

970 PAUSE 

980 RETURN 
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899 HEM It* OPCAO 5 It* 

900 PRINT"DIGITE UM NCMERO PAHA 
LISTAR TODOS QUE TEH AO MENOS 

ESTE NOMERO DE ANIMAIS"; 

910 INPUTA 

915 PRINT:PRINT 

920 FORJ-ITOR 

925 F0RK=1T0C 

930 PT(J)-PTtJ)+N(J,K} 

935 NEXTK 

940 IFPT(J)>-ATHENPBINTCHSCJ} ;" 

" ;PT(J) :F0"1 
945 PT(J)=0 
950 NEXTJ 

955 IFFO=0THENPRINT:PRINT"NINGU 
EM TEM TANTOS ANIMAIS!" 
960 PRINT :PHINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR" 
970 IF INKEy$-""THEN970 
980 RETURN 
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899 REM *** OPCAO 5 *** 

90 PRINT "DIGITE UM NUMERO PA 

RA LISTAR TODOS QUE TEM AO MENO 

S ESTE NUMERO DE ANIMAIS"; 

910 INPUT A 

915 PRINT : PRINT 

920 FOR J - 1 TO H 

925 FOR K - 1 TO C 

930 PTCJJ - PT(J) + N(J,K) 

935 NEXT K 

940 IF A < - PT(J) THEN PRIN 

T CHS(J} r" " ;PT(J) :F0 - 1 

945 PT(J) - 

950 NEXT 

955 IF FO - THEN PRINT : PR 

INT 'NINGUEM TEM TANTOS ANIMAIS 

I " 

960 PRINT : PfilNT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR" ; 
970 GET AS 
980 RETURN 

Antes de comparar o niimero que vo- 
ce imprimiu com os totais para cada 
crianpa, o computador precisa caicular 
esses totais. As linhas 920 e 925 definem 
OS lai;os que percorrem as linhas e colu- 
nas da matriz, enquanio a linha 930 cal- 



cula o toiaL de animais em cada linha. 
Os lotais sao armazenados em um con- 
junto chamado PT( ), ou p( ), no Spec- 
trum. Seo total de cada litiha for maior 
ou igua! ao nilmero que voce enlrou, o 
nome da crianga sera exibido na tela, 
juntamente com o numero dc animals 
que ela possui. 

Assim que o nome de alguem for im- 
pres-so, o indicador FOUND (ou seja, 
achado, em ingles) sera igualado a 1 . Se 
FOUND ainda for igual a quando o 
computador atingir a linha 955. isso sig- 
nificaquc ncnhuma crianga tem aquele 
numero de animaisque voce solicitou, 
e o programa Ihe dara cssa informacao 
por meio de mensagem. 

A ukima opgao — de numero 6 — 
mostra a matri/ na tela. 

Como e difi'cil encaixar todos os Ho- 
mes dos animais de eslimai;ao no topo 
da labeia, o programa imprimc nume- 
ros de referencia, em ve? de palavras. Em 
compensatirao, ele imprime os nomes dos 
proprieiarios. 



999 REM ** OPCAO 6 ** 
1000 PRINT '"CRIANCAS" , "ANIMAIS 

IT 

aOIO PRINT 'TAB 9; 

1015 FOR J=l TO c 

1020 PRINT j;" "; 

1025 NEXT j: PRINT 

1030 FOR j-1 TO r 

1035 PRINT *cg(j);TAB 9; 

1040 FOR k-l TO c 

1050 PRINT r( j.k) ; " " ; 

1060 NEXT k 

1065 NEXT J 

1070 PRINT •■" PHESSIONE QUALQU 

ER TECLA PARA RETOHNAR" 

1080 PAUSE 

1090 RETURN 
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999 REMttt OPCAO 6 ttt 

1000 PRINT 632, "CRIANCAS" ."ANIM 
AIS" 

1010 PRINT §72, ; 

1015 FOR J-1 TO C 

1020 PRINT J 

1025 NEXT: PRINT 

1030 FOR J-1 TO H 

1035 PRINTrPRINT CHStJ) TAB(8}: 

1040 FOR K-l TO C 

1050 PRINT NtJ.K) ; 

1060 NEXT K,J 

1070 PRINT: PRINT; PRINT " PRESSI 

ONE QUALQUER TECLA PAHA RETOR 

NAR' 

lOeO IF INKEYS-"' THEN 1080 

1090 RETURN 



1000 PRINT "CRIANCAS" , "ANIMAIB 

ft 

1010 HTAB 15 

1015 FOR J - 1 TO C 

1020 PRINT J;" ": 

1025 NEXT : PRINT 

1030 FOR J - 1 TO R 

1035 PRINT : PRINT CHS (J) ; TAB 

( 15); 

1040 FOR K - 1 TO C 

1050 PRINT N(J.K) ; " " ; 

1060 NEXT : NEXT 

1070 PRINT : PRINT : PRINT "PR 

ESSIONE QUALQUER TECLA PARA RET 

ORNAR"; 

1080 GET A$ 

1090 RETURN 
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999 REM Itt OPCAO 6 ttt 

1000 PRINT"CRIAN5AS" , "ANIMAIS" 
1010 LOCATE 15 

1015 FORJ-ITOC 

1020 PRINTJ; 

1025 NEXT: PRINT 

1030 FORJ-ITOR 

1035 PRINT:PRINTCH$(J) ;TAB(15) ; 

1040 FORK-ITOC 

1050 PRINTN(J,K) i 

1060 NEXT: NEXT 

1070 PRINT: PRINT :PRINT"PHESSION 

E QUALQUER TECLA PARA RETORNAR" 



1080 IFINKEY$- 
1090 RETURN 



'THEN1080 
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999 REM *** OPCAO 6 *** 



USOS PARA AS MATRIZES 



Uma miMTii usada dessa forma c cha- 
mada de base de dados. E possivel criar 
bases de dados para os mais di versos 
fins: para um levantamento da vida ani- 
mal, por cxemplo. Numa pesquisa dc.s- 
sc gcnero, a base de dados mostraria o 
numero de eerios animais, assim como 
o tipo dc habitat onde cles sao encon- 
irados. As linhas da niatriz indicariam 
OS tipos de animais, e as colunas, os ha- 
bitats. Em seguida, os dados poderiam 
ser examinados para vcrificar a distri- 
buiipao dos animais em determinadas re- 
gioes ou epocas do ano. 

A base de dados pode ser aplicada 
lambem em levantamentos dc trafego 
cm estradas: para verificar, por exetn- 
plo, que tipos dc carros passam por ca- 
da secao de uma rodovia. Ela se presta 
ainda para aplicatjao no campo da nu- 
irik;ao. Assim, a matri?" conicria os da- 
dos de cada tipo de alimenio, com rela- 
tao ao seu contetido de protcinas, gor- 
duras, carboidratos e calorias. Com 
uma matriz desse tipo, seria lacil impri- 
mir todos os alimentos que apresentas- 
sem uma certa quantidade de proteinas, 
ou tantas calorias, ou que oferecessem 
certas combinagoes de elementos. 
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COMO USAR A DECLARACAO REM 
Nao basta que o programa em BA 
SIC Bsteja correto ou passe por todos 
OS testes: € preciso ainda que ele es- 
te]a bem documentado e estruturado 
de (orma logica e ctara. 

Para et'itar confusoes por parte do 
usu^rio e rnesmo do programador na 
compreensao do que foi digitado, 
costumase utilizar um mecanismo co 
nhecido como documentacao interna 
do programa. Este identifica, por mem 
de Tilulos e comenttirios colocados na 
listagem, as diversas partes do progra- 
ma. Isso e feito pelo comando REM, 
que 6 umaabreviaturada palavra/?f/W- 
ark [comentario. em inglesl, O REM 
nao e uma declaragao executavei (ou 
seja, ao encontrci la em um programa, 
o computador simplesmente a ignora 
e passa adiante). 

Uma das fungoes do REM consists 
em identificar o programa, prestando 
informacoes Ichamadas cabecalho) co- 
mo: para que serve, para que maquina 
ele esta destinado, quern o escreveu, 
quando etc. Eis um exempio: 



10 REM 

15 REM PROGRAMA CREPF 
25 REM Simular o joQO de crepe 
30 REM ^?EBSAO:IDATAi20/02/l986 
35 HEM NOME P/ GRAVACAO: CREPOl 
40 REM 

45 HEM COMPUTADOR: TK-90X 
50 HEM MEM0RIANECESSARIA:16 K 
55 HEM PROGRAMADO POR: RENATO 
SABBATINI 

60 REM 

A coiQca(;:ao de cabecalhos como 
esse evita muitos dissabores. 

Outra funcao do REM ^ informar pa 
ra que servem certas partes do progra- 
ma. Por exempio: 

350 REM 

355 REM TESTA SE NUMERO DE NA 

UES=ZERO 
360 REM SE E', TERMINA PRO- 
GRAMA 

365 REM ^, _„„_,, 

370 IF NAyES=0 THEN GOTO 999 

ideal seria colocar um comenta- 
rio para cada linha do programa. Isso 
pode ser feito facilmente nos micros 
que aceitem comandos multiples por 
linha: 

500 GOSUB S90 :BEM SUBR . 
CALCULO 

emprego de comentarios 6 simpli- 
f icado, em varies micros, peio apdstro- 
fo ('), usado como abreviatura do 
comando REM: 
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lato ^ um comentdrio 



9R0GRAMACA0 DBJOGOS 



1 



COM© PLA 
UMAAVEN 




Sair da rotina e fazer da vida uma 
aventura errante: quantos 
de nos ja nao sonhamos com isso? Veja 
como fazer essa mudan^a, vivS 
aventuras incriveis... no computador. 



\ 



Os jogos de aventura sao uma boa aJ- 
lernativa para quern esta cansado dos 
arcaicos videogames e fliperamas. Neles, 
o jogador e totalmente envolvido por 
um mundo fantastico, criado unicamen- 
te pe!a imagina<;ao do programador. 



A ORIGEM DOS JOGOS DE AVENTURAS 



A id6ia de criar jogos de aventura 
surgiu da popularidade, nos EUA e na 
Gra-Bretanha, dos jogos de a^ao nao- 
computadorizados, tais como Masmor- 
ras e Dragoes e, ao mesmo tempo, do 
desejo de se utilizar os computadores 
para fazer coisas mais interessantes do 
que processar dados. 

Por outro lade, os jogos nao-compu- 
tadorizados nao atendiam plenamente a 
demanda do publico, que exigia emo- 
foes cada vez mais fortes. Essa deman- 
da so foi satisfeita pelos jogos de aven- 
turas programados para o computador. 

Em Masmorras e Dragoes os jogado- 
res assumem o papel de certos persona- 
gens, que lutam encarnicadamenie (na 
imaginacao) num lugar conhecido como 
Masmorra. Esse lugar, por sua vez, e 
criado por outro jogador, que faz o pa- 
pel do Senhor da Masmorra. Nos jogos 
de aventura, o programador vive um 
personagem parecido com este, poden- 
do inventar, assim, seu proprio mundo, 

Ao contrario de outros jogos, em 
Masmorras e Dragoes os jogadores nao 
podem escolher as caracteristicas de sens 
personagens; isso depende inteiramente 
do jogo, Em algumas versoes mais .sofis- 
ticadas. os jogadores podem selecionar o 
equipamento e o.s mantimentos que os 
personagens vao usar, desde que isso se- 
ja feito no inicio do jogo, antes de co- 
me?ar a aventura. O primeiro jogo de 
avenmra destinado a computadores foi 
escrito para maquinas de grande porte, 
em linguagem FORTRAN, e nao em BA- 
SIC. O programa ocupou aproximada- 
mente 300k de memoria, ou seja, bem 
mais do que a memoria RAM total da 
maioria dos micros pessoais. Apesar do 
seu tamanho e complexidade, esse jogo 
conquistou milhares de usuarios de com- 
putadores nos Estados Unidos e no Ca- 
nada; eles passaram a dedicar suas noi- 
tes a tentar decifrar os misterios do jogo. 



Na realidade. a popularizaijao dos jo- 
gos de aventura come(;ou quando um jo- 
vem programador chamado Scott 
Adams desenvolveu, em 1978, um jogo 
para microcomputador TRS-80 e 
provou que era possivel escre 
ver uma aventura razoi- 
ve! em um cspago de 
memoria bem menor. Desde entao, os 
lemas de jogos adotados por Adams 
A Terra da Aventura, O Refugio do 
Pirata, O Misterio do Parquc de 
Diversoes etc. — tern sido usa- 
dos e recusados iniimeras vezes 
pelos escritores de outros jogos. 



TIPOS DE AVENTURAS 



Como as aventuras para grandes'--. 
computadores, os jogos de Adam^ 
apreseiitavam somente textos na tel. 
Na verdade, os programas que usam 
apenas textos sao ainda os mais popu- 
lares. 

Existem ainda iniJmeros jogos de 
aventura para computadores que utili- 
zam ilustrav'oes desenhadas na tela pa- 
ra situar, orientar e motivar o usu^rio. 
Entretanto, os graficos precisam ser 
muilo sofisticados, para poder compe- 
tir com a imaginafao do jogador. Por 
exemplo, voce poderia conceber um 
monstro bem mais horripilante do que 
seria capaz de reproduzir, mesmo nas to- 
las graficas mais avan^adas. Portanto, 
e bem possivel que os graficos "estra- 
guem" sua diversao; o principal argu- 
mento contra a sua utiiizagao e que eles 
desperdigam grande parte da memoria, 
que poderia ser usada para expandir o 
campo da aventura. Certas aventuras 
apresentam uma contagem de pontos, 
sempre que uma etapa da busca e com- 
pletada. Desse modo, o jogador pode 
avaliar seu desempenho, caso tenha si- 
do derrotado em algum estagio. Alguns 
programas chegam ao ponto de classi- 
ficar esse desempenho com conceitos, 
que podem ir de "palha^o" a "perito". 

Outro.s jogos nao fornecem qualquer 
dica de como o jogador esta se saindo 
ou da proximidade do desfecho. 

Seja qual for o caso, porem, a diver- 
sao maior estd na solu^ao de uma s^rie 
aparentemente infmita de charadas, de- 




pois da quai a aventura chega ao fim. 
Alguns costumam durar muitas horas, 
ou dias, podendo ser interrompidos e re- 
tomados a qualquer momento. 



UMA HISTORIA SEM FIM 



Normalmente, quando se inicia uma 
aventura atraves do comando RUN, sao 
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dadas int'ormacQes sobre o mundo em 
que se acaba de entrar: este pode ser um 
lugar exotico na Terra, um planeta dis- 
tanie, ou um local imaginario. O jogo 
pode acontecer em epocas diversas. Ge- 
ralmente, sao fornecidas informa^oes 
como: quern governa o lugar; quern e 
voce e como fazer para atingir o objeti- 
vo e ganhar o jogo. Depois disso, apa- 
recerci uma primeira descri(;ao do local, 



provavelmente dizendo algo como: 



HA 
UMA 



voce 3E ENCONTRA PROXIMO A UM 
ENORME CALDEIRAO CHEIO DE UM 
LIQUIDO VERDE BORBULHANTE 
UM CHEIRO DEMON i AGO NO AH 
COLHER EST* NO CBfiO. 
voce PODE IR PARA LESTE 

OESTE 
NORTE 
E AGORA? 
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Agora, voce tern que decidir o que fa- 
zer. Sera convenienie usar a colher pa- 
ra misturar o liquJdo ou mesrao experi- 
menla-lo? Nao seria melhor deixar isso 
de lado? Ou talvez fosse preferivel pro- 
curar um recipiente para levar um pou- 
co do Ii'quido verde com voce? 

Se decidir usar a colher, digite algo 
assim; PEGUE COLHER; a resposta do 
compuiador sera: OK ou VOCE AIN- 
DA NAO PODE PEGAR A CO- 
LHER!, ou algtima outra mensagem. 

Em cada etapa do jogo voce deve in- 
formal ao computador exatamente o 
que pretende fazer. A forma de fazer is- 
so dependera apenas do tipo de jogo. A 
maioria deles espera voce digitar seus 
comandos no computador atraves de 
um verbo seguido de substantivo; por 
evempio: PEGUE COLHER. 

Jogos mais sofisticados aceitam sen- 



lengas completas, mas isso e uma exce- 
gao a regra. Esses tipos de jogos permi- 
tem-ihe dizer algo como: IMATE O IN- 
SETO PrSANDO NELE ENQIJANTO 
CANTA "O TICO-TICO NO FUBA". 

A maioria dos jogos de aventura con- 
segue entender abrevialuras das palavras 
validas. Por exemplo, e muito comum, 
tiuma aventura, digitar IN em vez de 
NORTE. As diTe<?oes podem ser pontes 
cardeais — N, S, L c O — ou colaterais 
— SE, SO, NE e NO — , ou instruijoes 
como PARA CrMA, PARA BAIXO. 

Um jogo ti'pico de aventura e basea- 
do numa grade de locais possiveis, que 
assume geralmente a forma de um qua- 
drado. Dependendo da imaginafao do 
programador, esses lugares podem re- 
presentar ambientes tao variados como 
OS quartos de um castelo, os subterra- 
neos de uma mina etc. 



DICAS PARA VENCER 



Habitualmente, existe apenas uma 
solugao para a aventura: por exemplo, 
encontrar um pote de ouro e teva-lo pa- 
ra o fim do arco-iris, ou matar um guer- 
reiro medieval e escapar ileso etc. Ate 
chegar a esse objetivo. o jogador preci- 
sa resolver toda uma serie de problemas. 
O mais prov^vel e que elc tcnha que fa- 
zer muitas temaiivas diferentes ate con- 
cluir a aventura. 

Existem aigumas regras basicas e di- 
cas que o ajudarao a resolver mais ra- 
pidamente a maioria dos jogos. Quase 
todos OS objetos que voce encontrar nas 
aventuras serao de alguma utilidade. A 
existencia de muitas pistas completa- 
mente falsas representa um desperdicio 
de memoria, embora seja necessario es- 



tar SL-mpre atento para alguns objeios 
que podem sct "facas de dois gumes". 
Por exemplo, o jogador poderia esiar 
carregando uma sacola com moedas de 
ouro para passar pelo pedagio de uma 
pome; case ele se decicJisse a nadar no 
rio, porem, o peso deias o faria afun- 
dar. Como rcgra geral, e aconselhavel 
tentar carregar o maior numcro possivel 
de objetos, mas algumas vezes apenas 
uma parte deles Ihe sera realmente util. 

Quase sempre, a iiiaioria dos objetos 
e usada somente uma vez durante uma 
aventura. Mas ha escei;6es: uma espa- 
da, por exemplo, poderia ser usada mui- 
las vezes para derrubar gigantcs, dra- 
goes ou bandidos. Dessa forma, se vo- 
ce for obrigado a limitar o numero de 
objetos que leva consigo, dove ter em 
menie que i mais seguro descartar os 
que ja foram usados uma vez. 

Outra regra geral: desenhe sempre 
um mapa, marcando nele os nomcs dos 
aposentos, a posi(;ao dos scntineias e dos 
objetos distribuidos pelos quartos, !o- 
das as entradas e saidas com siias dirc- 
i;6es e outros pontes de referenda que 
Ihe possam ser ijteis. 

O mapa o fara economizar tempo e 
esfor<;o quando voce estiver retornando 
para algum ponto anterior — manobra 
que voce repetira varias vezes durante 
o jogo. Se tiver que abandonar algum 
objeto, por nao poder carregar tudo, 
nao sc esquetja de marcar a posigao de- 
le no mapa. A importancia do mapa es- 
ta em que ele Ihe permitira ter certeza 
de que explorou lodas as possibilidades 
da aventura — o que, em muilos casos, 
salvara sua "vida". 

Cerios jogos permitem que voc§ pe- 
k;a um inventario do que esta carregan- 
do. Assim, quando estiver diantc de 
uma charada, procure saber exatamen- 
te o que tern em maos, digitando IN- 
VENTARIO, LISTA, ou algo seme- 
Ihante, dependendo da aventura. 

Ha jogos, ainda, que dao ao jogador 
a possibilidade de pedir ajuda. A forma 
de faze-lo varia, mais uma vez, con for- 
me o conteudo da aventura. Freqiiente- 
mente, porem, voce ohtera algo assim, 
em resposta ao seu pcdido: 
NENHUMA AJUDA POSSIVEL. 

Alguns jogos seguem cuidadosamen- 
te enredo de um livro especifico {por 
exemplo, A Ilha do Tesoura, escrito em 
1833 por Robert Louis Stevenson). Nes- 
tes casos, e altamcnte recomend^vel ler 
o livro em questao. 

Outros jogos inspiram-se apenas em 
alguns capitulos ou ideias de um roman- 
ce famoso. Assim, se voce eticontrar nu- 
ma aventura algum element© que o fa- 
?a recorder um texto literario e tiver di- 
ficuldades para resolver um determina-, 



do problema, tcnte encontrar a respos- 
ta consultando o livro. Um dicionario 
de sinonimos pode ser de grande utili- 
dade, permitindo que o jogador explo- 
re todas as variafoes possiveis de uma 
determinada frase, Por exemplo: o pro- 
gramador pode ter usado no jogo a pa- 
lavra POLIR, em vez de LUSTRAR. 
Uma ijitima dica: se o jogo permitir 
o uso do comaiido GRAVAR em algu- 
mas etapas, e voce estiver pre.stes a en- 
frcntar um grande perigo, entao arma- 
zene a aventura no estdgio em que ela 
se encontra, antes de dar o passo deci- 



sive, poi.s, sevoce for "mono", podera 
voJtar atras e continuar a partir do pon- 
to em que parou. 



CRIE AS SUAS PROPRIAS AVENTURAS 



A criagao de aventuras e uma boa 
maneira de dominar a linguagcm BA- 
SIC. Quase todos os aspectos importan- 




les dessa linguagem sao uiilizados nes- 
se tipo de jogo: variiveis, mairizes, for- 
matos de telas, cadelas alfanumericas, 
comandos IF, e assim por diante. 

Muitos jogos de aventuras k venda 
ainda sao escritos em BASIC, pois nao 
ha muita necessidade de velocidade de 
execugao do programa. 

Ames de programar um jogo desse 
genero, voce precisa ter uma ideia bem 
ctara do que pretende fazer e do enredo 
da aventura. A seguir, planeje cuidado- 
samente a trama com suas charadas, pe- 
rigos. objetos etc. 

Para come^ar, pegue uma folha dc 
papel e faija um rase un ho dc algumas 
ideias. Nao se preocupe se ainda nao 
tem uma visao completa da ordem do 
jogo: o que voce precisa inicialmente c 
de uma no^ao do roteiro, do local da 
aventura e de algumas charadas para o 
jogador reso!ver. 
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Quanto espaco de memtiria necessi- 
to para escrewer um jogo de aventura? 

Nas proximas ligoes de INPUT de- 
senvolveremos uma aventura simples, 
ocupando cerca de 5K de BAS(C. Co- 
mo todo prjmeiro passo, esse jogo nao 
trar^ epis6dios de grande emcxpao. Seu 
objetivo 6 apenas introduzi-lo ao mun- 
do fascinante da aventura. 

Os melhores jogos tem um grande 
numero de aposentos e charadas e sao 
muito diffceis, devido ao efeito cres- 
cente de problemas cada vez mais 
complicados. Com uma quantidade li- 
mitada de memdria, voce ser^ forcado 
a determinar um numero menor de pro 
blemas, que por sua vez serao mais ai- 
ficeis do que o normal. Isso, contudo, 
nao 6 muito satisfat6rio. 

Um jogo como esse exige um com- 
putador com, no minimo, 16K de me- 
moria; mas sugerimos uma mSquina 
com 48 ou 64K para jogos realmente 
desafiantes. 

que devo fazer se cair numa ar- 
madiiha durante a aventura? 

Nsodesista; tentenovamentequan- 
do tiver uma nova id^ia ou estrat^gia. 

Se vocS realmente empacar, os jo- 
gos de aventuras comercializados ofe- 
recem um folheto com dtcas e respos- 
tas. Muitas vezes, S precise solicitar 
pelo correio um mapa da solugao. 

Outre recurso para ajudS-lo sao as 
rewistas do glnero, que costumam 
apontar a solucao completa de aven- 
turas complexas. 



Alem de livros, voce pode inspirar- 
se em filme.s, programas de TV e pegas 
teatrais, ou me.smo inventar novas his- 
torias. Pode tambem buscar ideias em 
outras aventuras, Mas o melhor recur- 
so para sua inspiracao e fazer trabalhar 
a imaginaijao. 

Ao mesmo tempo, procure alcan^ar 
um certo equilibrio entre o desafio e as 
condigoes para vence-lo. Nao e conve- 
nietite criar uma aventura que qualquer 
um poderia resolver no espa<;o dc meia 
hora. Em contrapartida, seu jogo nao 
deve apresentar problemas insoluveis. A 
regra basica e: "de aos jogadores uma 
chance"... mas nao exagere. 

Tente nao deixar muitos aposentos 
ou iocais vazios. Alem de ocupar muito 
espaco de memoria, estcs nao contri- 
buem para a resolui;ao do.<; problemas 
e tornam o enredo cansativo. 

Por ouiro (ado, procure evitar que as 
suas primeiras aventuras sejam exeessi- 
vamente complexas, para que os proble- 
mas que aparecem ao longo da historia 
possam ser resolvidos por quern ainda 
nao tem pratica; familiarize-secom o te- 
ma antes de aveniurar-se em qualquer 
enredo extravagante; mantcnha-se alerta 
quanlo ao espa(;o resranle de memoria, 
pois programas como esses tendem a se 
tornar giganlescos. 

No jogo de aventura que sera elabo- 
rado nas proximas partes do curso de 
PrograiTWi'ao de jogos, enconlraremos 
muitas declaracoes REM (comcntarios, 
para eniender o fluxo do programa). 
Entretanto, para economizar memoria 
em jogos com longas aventuras, e pre- 
ferivel trabalhar sem taks declaracoes, 
mesmo que no comego elas facilitem a 
criagao da trama. 

Voce podera tambem pou par espaco 
de memoria na dcscricao dos aposentos, 
DescriQocs muito curtas, porem, lendem 
a estragar todo o prazer suscitado pela 
aventura. 



ESPACO RESTANTE DE MEMORIA 



PRINT (PEEK 23?30 + 256* PEEK 
23731) - (PEEK 23653 + 256* 
PEEK Z36S4) 

O que t'oi digitado leva em conside- 
rat^ao tanto o espa<;o ocupado pelo pro- 
grama como usado para armazenar as 
variaveis. A melhor coniagem para des- 
cobrir a quantidade de memoria restante 
so sera possivel, ponanto, depois que o 
programa tiver side rodado. 

Para saber quanto espaco esta so- 
brando, subtraia esse valor da quanti- 
dade total de memoria RAM existente 
no computador. 



DQ 



Ao escrever um longo jogo de aven- 
tura. e facil descobrir quando se esta 
chegando ao limite de memoria do com- 
putador, Obviamente, os problemas de f jiJIgl^vO 
despcrdicio de memoria tornam-se mais 
graves no caso de maquinas com memo- 
rias menores (na verdade, seria perda de 
tempo tentar escrever um programa de 
aventura em um computador que tenha 
mcnos do que 16K dc RAM). 



Nos microcomputadores das linha$ 
TRS-80 e TRS-Color, o que resta da me- 
mciria pode ser descoberto digiiando-se; 

PRINT MEK 

Essa instrucao levara em conta o espafo 
ocupado pelo programa e pelas variaveis. 
Assim, e melhor rodar antes o programa, 
durante seu desenvolvimento (se isso for 
possivel), a Tim de conscguir uma indica- 
pao real do total de memoria usado por el& 

Para saber quanto espaco esta sobran- 
do, subtraia esse valor da quantidade to- 
tal de memoria RAM existente no com- 
putador. Ha uma maneira bem tacil de 
se aumentar o espaco livre de memoria 
no TRS-Color para seus programas em 
BASIC. Antes de comecar a programar, 
digite esses dois comandos POKE: 

POKE 25,6 
POKE 26.1 
NEW 

Isso economi^ara uns 6K extras para 
.seu programa, pois enganara o compu- 
tador, colocando o programa em BASIC 
dentro de um espaco normalmente reser- 
vado para graficos de alta rcsolucao, 

Neste caso os comandos POKE ex- 
cluem OS comandos para graficos na sua 
aventura. Se eles existirem, o seu pro- 
grama sera alterado. 

Quando voce armazenar o programa 
em t'ita ou disco e quiser carrega-lo mais 
tarde, nao se esqueca de usar antes os 
comando.s POKE e NEW. 



Nos microcomputadores das linhas 
Apple e MSX, o que resta da memoria 
pode ser descoberto digitando-se: 



Digite a seguinle linha, em modo 
direto: 



PRINT FttE(0} 

A funt;ao FRE (abreviatura de FREc, 
ou livre, em ingles) retorna o espaco li- 
vre na memoria R.\M, ou seja, aquele 
nao ocupado pelo programa e pelas va- 
riaveis. 
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CODIGO OE MAQUINA 



EXERCICIO EM ASSEMBLY 
UM PROGRAMA QUE DESLOCA A 



TELA PARA OS LADOS 



COMO FUNCIONA PROGRAMA 
EM DIVERSOS COMPUTADORES 



Agora que voce j^ sabe traduzir do 

Assembly para o sistema hexa, 

passe a operar com cddigo da maqulna. 



Os programas em Assembly apresen- 
tados a seguir deslocam a tela um carac- 
tere para a esquerda ou para a direita. 
Monte-OS na memoria do micro usando 
seu programa monitor, Se voce quiser 
gravar programas para uso future, colo- 
que-os em locals dlferentes da memoria, 

Os programas funcionam indepen- 



dentemente de suas posigoes na memb- 
ria, de forma que voce raesmo pode re- 
solver onde e melhor coloca-los. Para 
deslocar a tela mais de uma posigao no 
sentido horizontal, chame a rotina em 
codigo dc maquina de dentro de um la- 
(;o FOR. ..NEXT, Outra opgao e deslo- 
car a tela somente quando certa tecia e 
pressionada, usando INKEYS ou GETS, 



Esie programa desioca a tela para a 
esquerda (ja esta iraduzido). 



Id de, 16384 

Id hl.l638S 
la 1>,192 
loop push be 

Id a, (de) 
Id be, 31 
Idir 

ld(de] .a 
inc de 
inc hi 
pop be 
djnz loop 
ret 



11 00 40 

21 01 40 

06 CO 

C5 

lA 

01 IF 00 

ED BO 

12 

13 

23 

CI 

10 F3 

C9 



Os comandos Id de, 16384 e td til, I, 
16385 carregam os enderegos das duas 
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primeiras posi^oes da tela do Spectrum 
nos registros DE c HL, Ja Id b,192 
transporta o registro B com o niimero 
192 (ha 192 Hnhas na tela desse micro, 
c B e usado para conta-Jas), 

Como o registro B sera usado para 
contar outras eoisas tambem, seu con- 
teijdo ficara tcmporariamente armaze- 
nado na pilha (slack). Todavia, nenhum 
comando transfere apenas o conteiido 
de B para a pilha: assim, tcmos que fa- 
zer essa transferencia com o conteudo de 
B e C ao mesmo tempo usando push be. 

O atumulador e entao carregado com 
conteudo da posi(;ao dc rnemoria cu- 
jo enderego esta no registro DE, pclo co- 
mando Id a (DE). Este e um exemplo de 
enderevamento iiidireto. Lembre-se de 
que o conleiJdo de DE e 16.184. 

O comando Id be, 31 carrega os re- 
gistros BC com o numero 31. Cada li- 
nha tern 32 caracteres, mas a transferen- 



cia do primeiro caractere para a ultima 
posi?ao da linha e feita independente- 
mente. Assim, basta contar ate 31. 

A instrugao mais poderosa aqui uii- 
lizada e Idir, que significa "carregar, so- 
mar urn e repetir" (-load, increnienr 
and repeal)- Compreender o que ela faz 
e crucial para o entcndimento do progra- 
ma: o conteudo da posi(;ao de memoria 
cujo endere?o esta em HL — inicialmen- 
te, 16385 — i transferido para a posi<;ao 
cujo enderc(;o esta em DE — inicialmen- 
le, 16384. A seguir, deve-se somar 1 aos 
conteiidos de HL e DE, subtrair 1 do con- 
teiido de BC e verificar se o conteiido de 
BC foi redu?.ido a 0. Enquanto isso nao 
acontecer a instrut^ao sera repctida. 

O que estava na segunda posi(;ao do 
video passa entao para a prinieira; o que 
estava na terceira posigao vai para a se- 
gunda, e assim ate que termine a primei- 
ra linha do video, o que acontece quan- 



do o registro dc BC (J reduzido a 0. A 
ultima transferencia e a da 32f posigao, 
que passa para a 31f. Nessa altura. o 
conteiido de BC e subtraido de 1 e se 
torna 0, e o programa passa para a ins- 
Irugao seguinte. 

O conteudo do acumulador e trans- 
ferido por Id (dc), a para a posifao cu- 
jo endere^o esta cm DE. O acumulador 
contem o codigo do caractere que ocu- 
pava a primeira posiijao da memoria de 
video; 16384. enderego que estava em 
DE antes dc Idir come^ar a incrementar 
esse registro. 

Esse processo de somar 1 ao conteii- 
do de DE foi executado sucessivamente 
desde entao, e agora DE contem o en- 
dereco da liltima posicao da primeira li- 
nha. E.ste e jusiamente o local para on- 
de desejamos transferir o caractere que 
estava no inicio da linha. 

Os comandos inc hi e inc de somam 




INC &FE^ 
LX>X A FE 




I 




"W^ 



^^^ 



1 
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1 aos registros HL e DE, de forma que 
estes passam a center os endere? os das 
duas primeiras posii;6es da linha seguin- 
le. Como o conteiido da primeira posi- 
(jao e transferido para o final da linha, 
independentemente de Idir, devemos in- 
crementar o valor desses registros ds 
mesma forma. 

O antigo conteudo de BC e recupe- 
rado da pilha pelo comando pop be. O 
comando djnz subtrai 1 ao valor de B 
e "pula" sLicessivamente para outros lo- 
cais do programa, ate que esse valor se 
iguale a ( = decrement and jump if not 
zero). No inicio do programa, carrega- 
mos o registro B com 192, Esse valor fl- 
ea armazenado temporariamente na pi- 
lha para liberar o uso de BC. O coman- 
do djnz subtrai 1 a esse valor, que pas- 
sa a ser 191 (valor diferente de 0). As- 
sim, a instrugao volta para a primeira 
ocorrencia do rotulo loop. 



Esse salto continua a ocorrer enquan- 
to conteudo de B vai sendo reduzido 
de 192 ate chegar a 0. O fato de esse va- 
lor ser transferido temporariamente pa- 
ra a pilha nao altera o funcionamento das 
coisas. Desta forma, uma linha e deslo- 
cada de cada vez. Quancio B finalmente 
contem o valor 0, ap(3s a liltima subira- 
?ao feita por djnz, nao ocorre salto, e o 
programa passa a instrugao seguinte. 

O comando ret significa retorne. Ne- 
nhuma rotina em codigo de maquina 
funcionara direito sem uma instrupao 
desse [ipo no final. O microprocessador 
tentara executar qualquer coisa que es- 
teja apos os c6digos de seu programa. 
O conteiido dessa parte da memoria ge- 
raimente nao faz sentido, e o mais co- 
mum e a perda de controle do compu- 
tador e do conteudo da memoria. 

Mesmo quando isso nao ocorre, o 
microprocessador continua lendo e ten- 



tando executar tudo o que enconira ate 
final da memoria. Chegando la, ele re- 
torna ao inicio da memoria onde encon- 
tra as rotinas de inicializa^ao do BASIC. 
Estas sao executadas e a memoria se 
apaga. 

Tenie traduzir para codigo de maqui- 
na e introduzir em seu micro a seguinte 
rotina Assembly. 

Id de, 22527 

Id hi, 22526 

Id b,192 
loop push be 

Id a, (de) 

Id be, 31 

Iddr 

Id(de) ,a 
dec hi 
dec de 
pop be 
djnz loop 
ret 
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Esse programa comega pelo final da 
memoria de video e vai transferindo os 
conteiidos das linhas "de tras para a 
frente". A diferenv'a enlre ele e o ante- 
rior e o uso da instru^ao Iddr, que trans- 
fere o caractere da posipao cujo ende- 
refo esta em HL para a posicao de en- 
dereco em DE, subtraindo 1 aos conteu- 
dos de HL, DE e BC e repetindo o pro- 
cesso ate que o valor em BC seja redu- 
zido a 0. O comando Iddr transfere blo- 
cos de memoria em sentido conErario a 
Idir. 

O salto e do mesmo tamanho que no 
programa anterior. Verifique se calcu- 
iou seu valor corretamente, olhando a 
listagem (conte os byies a partir do fi- 
nal da instrugao de salto, ou seja, in- 
cluindo o byte cujo valor est^ sendo cal- 
culado). 



O programa a seguir desloca a tela 
para a esquerda no ZX-81 com expan- 
sao de memoria. Ele ja esta traduzido 
do Assembly para c6digo de maquina. 



LD DE, (16396) 


ED 5B 


OC 40 


INC DE 




13 


LD H.D 




62 


LD L,E 




6B 


INC H.L 




23 


LD B,24 




06 18 


LOOP PUSH BC 




05 


LD A, (DE) 




lA 


LD BC.31 


01 


IF 00 


LDIR 




ED BO 


LD(DE> .A 




12 


INC HL 




23 


INC HL 




23 


INC DE 




13 


INC DE 




13 


POP BC 




CI 


DJNZ LOOP 




10 Fl 


RET 
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PROGRAMA NO ZX-81 



A memoria de video do ZX-81 nao 
tern posi?ao fixa; as posigoes 16396 e 
16397 contem o endereco da primeira 
posifao do video. A instru^ao LDDE, 
{ = 163%) carrega os registros D e E com 
OS valores contidos em 16396 e 16397 — 
o conieiido de 1 6396 vai para E, e o ou- 
tro vai para D, seguindo a conveni;ao 
"baixo-alto' ' do Z-80. Agora, o progra- 
ma sabe onde esta a memoria de video. 

Esse micro conta com um caractere 
de retorno de carro (NEW LINE) no ini- 
cio de cada linha que nao aparece na te- 
la. Sua fungao e economizar o espago 
ocupado pclo video. Se a tela estiver va- 
zia, a memoria usada pelo video corres- 
pondera aos 24 caracteres NEW LINE, 
que marcam onde cada linha deve 
comcfar. 




/NY BHEjOO! 

sta(1f8)^y i-Vif^^ 

DEY STa£FE 



I 



i^ 
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Quando e usada uma expansao, es- 
ses caracteres ficam no final de cada li- 
nha, Nao devemos interferir nessa or- 
ganizagao. 

Tal organizagao e responsavel pelas 
diferencas entre os programas do ZX-81 
e OS do Spectrum {leia com atencao a 
descritjao do programa do Spectrum), 

O primeiro caraciere do video e um 
NEW LINE. Como nao devemos altera- 
lo. a instrucao INC DE soma 1 ao con- 
teiido de DE, que se torna entao o en- 
derepo da segunda posii;ao do video. 

As instru;;6es LD H,D c LD L,E co- 
piam o conteiido do par DE no par de 
registros HL. INC HL soma I a HL, 
que passa a conter o enderego da tercei- 
ra posigao do video. LD B,24 carrega o 
registro B com o niimero de linhas da 
tela do ZX-81. O restante do programa 
funciona de maneira identica k do Spec- 
trum. A unica diferenga e o niimero de 



comandos INC HL e INC DE que, no 
ZX-81, somam 1 a esses registros. Isso 
e feito uma vez para mover o programa 
para a linha seguinte e uma segunda vez 
para evitar interferencias da lifiha. 

Agora, tente obler os codigos hexa- 
decimais correspondenies ao seguinte 
programa em Assembly, que desToca a 
tela para a direita. 

LD HL, (16396) 
LD DE,790 
ADD HL.OE 
LD D,H 
LD E,L 
INC DE 
LD B,24 
LOOP PUSH BC 

LD A, (DE) 
LD &C,3I 
LDDR 

LD(DE) ,A 
DEC HL 
DEC HL 



DEC DE 
DEC DE 
POP BC 
DJNZ LOOP 
RET 

Esse exemplo e parecido com o se- 
gundo programa apresentado para o 
Spectrum. As diferengas entre eles sao 
as mesmas que encontramos antes. 



A organizagao da memoria de video 
do MSX e bem diferente da que existe em 
outras maquinas. Esse compuiador uii- 
liza um microprocessador diferente da 
CPU para controlar a tela, dispondo de 
16K que nao estao na R.^M para utili- 
zar como memoria de video. Dcsta for- 
ma, cssa porgao da memoria e tratada co- 
mo dispositive periferico, e o acesso a ela 
nao e tao facil quanto o acesso a RAM. 
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Isso significa que nao podemos usar 
comando Id para colocar ou ler um ca- 
ractere na memoria de video. O coman- 
do Assembly utilizado para enviar da- 
dos a um dispositJvo periferico e o out. 

Quando a memdria de video de um 
computador esta na RAM, podemos fa- 
cilmenle situar um caractere em qual- 
quer posi^ao vertical ou horizonial, Se 
a tela for tratada como um dispositive 
periferico, comudo, a instru^ao out sim- 
plesmente colocara os caracteres na mes- 
ma ordem em que forem enviados, a 
pardr da posi^ao do cursor. 

Temos, entao, dois problemas; para 
controlar a posi^ao do cursor, necessi- 
tamos de sub-rotinas da ROM; alem dis- 
so, OS I6K da memoria de video tern 
uma organizacao complicada, que varia 
conforme o tipo de tela selecionada, per- 
mitindo a exibi^jao de caracteres, cores 
e sprites. 

Enquanto nao aprendemos como 
funcionam as sub-rotinas da ROM e a 
organiza^ao da memoria de video, va- 
mos usar um artificio que de ao MSX 
uma "memoria de video" na RAM, cu- 
]0 acesso e bem mais facil. Isso e feito 
pelas duas rotinas que se seguem. 

A primeira copia os 960 caractere.s da 
tela de lextos de 40 colunas, no topo da 
memoria, onde esta e manipulada de 
maneira semelhante a dos outros mi- 
cros. A segunda copia os caracteres da 
"memoria de video" da RAM para a 
verdadeira membria dc video do MSX, 
que e um dispositive periferico. 

Embora todas as rotinas apresenta- 
das funcionem independentemente de 
sua localizafao na memoria, daremos 
exemplos utilizando enderet^os. 

Proleja o topo da memoria do MSX 
para colocar os programas e a "memo- 
ria de video" ( = use CLEAR 200, 
4HDFFF). A seguir, earregue os pro- 
graross usando o monitor. Utilize os en- 
dere<;os iniciais -8l92e -8155 para a 
primeira e a segunda rotinas, respecjli-^ 
vamente. y " 



jrnz , loop 
ret 
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Para faze-las funcionar, digite ainda 
o seguinte programa em BASIC: 

1000 SCREEN 

1005 DEF USR1--3192 

1007 DEF USR3 — 8155 

1010 FOR I"0 TO 960 

1020 VPOKE BASE(0}+I.RND(1)*256 

1030 NEXT I 

1040 VPCKE BASE<0) , 32.X-USR1(0) 

1050 CLSiFOn I-l TO 1000:NEXT I 

1060 VPOKE BASE (0) . 32 :X-USR3(0) 

1080 GOTO loeo 

Os possiveis erros podem «er corrigi- 
d05 por meio do monitor. Para possibi- 
litar isso, o programa em BASIC comc- 
i;a na linha 1000. acima do monitor. Sc 
nao apagarmos o programa monitor, 
poderemos rodar o novo programa com 
RUN 1000. 

As duas rotinas fornecidas devem ser 
chamadas de um programa em BASIC. 
Sao especialmente importantes os co- 
mandos VPOKE das linhas 1020 e 1040, 
que posicionam o cursor no inicio da te- 
la para que eia possa ser lida peia roti- 
na L'SRl e escrita pela rotina IJSR2. 

Agora, voce pode montar a rotina de 
deslocamento horizontal propriamente 
dita. Eia e parecida com as rotinas dos 
outros micros que usam o Z-80. Nao 
apague as duas rotinas anteriores. Uti- 
lize enderet^o inicial -8! 12. 




r-r 



na hi, -7936 
*^ad a. 4 ^ 
Id b,240 

dec a [ 
Vjrnz, loot 
V»t 




m 



W C.152 
.Id hi, -7935 
Id a, 4 
Id b,240 
loop outir 
i dec a 





Id de,-7935 


11 


01 


El 




Id hi, -7934 


21 


02 


El 




Id b,24 




06 


18 


loop 


push be 
Id a, (de) 






CS 
lA 




Id be. 39 


01 


27 


00 




Idir 




ED 


BO 




Id (de) ,a 






12 




inc de 






13 




inc hi ^.— v^ 






23 


l>' 7 


POP hc/^-r'.^/S 

ret >P-crr-m 




10 


CI 
F3 
C9 



^" Para ve-la funcionando, acrescente 
ainda as seguintes linhas ao programa 
em BASIC apreseniado anteriormente: 



1006 DEF USR2 — 8112 
1035 FOR I-l TO 1000 
1050 A-USR2(0) 
1070 NEXT I 






21 



OE 98 
01 £1 
3E 04 
06 FO 
ED B3 
3D 




COMO FUNCIONAM OS PROGRAMAS 



A primeira rotina irai)slere os %0 ca- 
cteres da tela de 40 colunas para o to- 
po da memoria. O comando Id c,152 co- 
loca o valor 152 no registro C. Este e o 
mjmero da "porta" correspondente a 
mem6ria de video. Todo dispositivo pe- 



riferico tem um niimero desse tipo. 

Escolhemos os enderepos de - 7936 
a - 6976 (57600 a 58560; o computador 
nao reconhece inteiros acima de 32768 
em codigo de maquina) para colocarmos 
a nossa "memoria de video" na RAM. 
.A.ssim, o primeiro endereco dessa me- 
moria e coIocaJo no registro HL por 
IdhI, -7936. 

O valor 4 e colocado no acumulador 
pelo comando Id a,4. O mesmo e feito 
com 240 no registro B, por Id b,240, A 
e B Funcionam como contadores. 

A instrucao Inir e a mais importante 
do programa. Eia coloca o valor lido na 
porta cujo niimero esta em C na posi- 
*;ao de memctria cujo enderevo esta em 
HL. A seguir, a mesma instru<;ao soma 
1 ao conteiido de HL e subtrai 1 a B, 
Se o conieudo de B nao for 0, todo o 
processo sera repetido (input, irureirtenr 
and repeal) > Quando o conteiido de B 
se torna 0, o programa passa a instru- 
cao seguinte. 

A instrucao dec a subtrai 1 ao valor 
em A. Se, apds essa operacao, o conteii- 
do de A for diTe rente de 0, jrnz desvia- 
ra o curso do programa para a primeira 
ocorrencia do roiulo loop { jump re- 
lative if not zero). Isso fara com que o 
processo de ler 240 caracteres na porta 
1 52 seja repetido. Caso o valor cm A se- 
ja reduzido a zero, o salto nao ocorre- 
ra, e o programa passara entao a instru- 
cao seguinte. 

O comando rel faz com que a rotina 
retorne ao BASIC. 

Em resumo, esse programa transfere 
OS primeiros 960 caracteres da tela, a 
partir da posi^ao do cursor. 

Ele faz isto repetindo quatro vezes a 
leitura e trans ferencia de 240 caracteres 
(4x240=960). 

A segunda rotina e essencialmente 
igual a primeira; apenas, trocamos o co- 
mando inir por outir {^output, incre^/^. 
metu and repeat) que. em vez de ler nai.^ i 
porta 152, envia para esse dispositivo os^i 
960 caracteres que estavam no topo da' 
memoria. 

A terceira rotina e, com algumas rao- 
dificaijoes, a mesma utilizada para o 
Spectrum. Eia age sobre a "memoria de 
video" na RAM e, para funcionar, de\'e^ 
ser usada juntamente com as rotinas an- 
teriores. Lcia atentamente a explica^ao 
do programa do Spectrum, 

As linicas diferentjas sao osendereijos 
iniciais da memoria de video ( — 7935 e 
- 7934), o niimero de linhas da tela (24) 
e numero de caracteres por linha, me- 
nos I (39). O restante e exatamente igual. 

Tente entao traduzir o programa que 
faz deslocamento horizontal da tela pa- 
ra a direita, do Assembly para codigo de 
maquina. Para rodA-lo, serao necessirias 



as rotinas iniciais, bem como um progra- 
ma em BASIC. 



loop 



Id de.-6976 
Id hi. -6977 
Id b,24 
push be 
Id a. (de) 
Id be, 39 
Iddr 

Id (de) .a 
dec hi 
dec de 
pop be 
djni loop 
ret 



El 



O TRS-80 ja vem L-om um monitor. 
Se seu sistema nao !em unidade de disco, 
rcsponda N a pergunta inicial do compu- 
tador; BASIC (S/N)? Entramos, assim, 
no monitor. Para aprendcr os coniandos 
espeufricos, con suite seu manual. 

Case seu sisiema tenha unidade de 
disco, pressione simiilianeamenie 
BREAK e RESET, iiberando a ultima tc- 
cla primeiro. Desse modo. o sistema sc 
comportara como se nao houvessc uni- 
dade de disco. 

O programa montado com moni- 
tor permanecera na memoria, nao sen- 
do apagado nem pelo DOS nem pela te- 
cla RESET, nem pelo BASIC, se for da- 
da uma resposia adequada a pergunta 
"Memoria Usada?" (resposia adequada 
e um enderetjo inferior ao do programa 
montado). 

A retina que se segue desloca a teia 
um caractere para a esquerda. 



loop 






Id de. 15360 
Id hi, 15361 
Id b,16 
puah be 
Id a, (de) 
Id be, 63 
Idir 

Id (del ,a 
inc de / 
inc hi 
pop be 
djnz loop 
ret 



11 
21 



01 



00 

01 
06 



3F 

ED 



3C 

3C 
10 
C5 
lA 
00 
BO 
12 



Id de, 16383 
Id hi, 16332 
Id b,16 
loop push be 

Id a, (de) 
Id be, 63 
Iddr 

Id (de),a 
dec hi 
dec de 
pop be 
djnz loop 
ret 



Dirija-se a setpao do Spectrum para 
comentarios. 



□ 



Este programa desloca a tela para a 
esquerda. ,hi foi traduifido do Assembly 
para linguagem de maquina. Elc nao 
funciona em sistemas com disquete. 



LOOP 



JUMP 



LDXI1024 


8E 


04 


00 


LDB.X+ 




E6 


80 


PSHS B 




34 


04 


LDBI31 




C6 


IF 


LDA , X+ 




A6 


ao 


STA-Z.X 




A7 


IE 


DECB 






5A 


BNE JUMP 




26 


F9 


PULS B 




35 


04 


STB'l.X 




E7 


IF 


CMPX#1536 


8C 


06 


00 


BLO LOOP 




25 


EA 


RTS 






39 



COMO FUNCIONA PROGRAMA 



/O- 






PROGHAMA NO TRS-80 



CI 
F3 



\>^ 



Este e cssencialmenic o mesmo pro- 
grama forneeido para o Spectrum. Mas 
existcm algumas diferen^as. 

Sao elas: o endereco inicial da memo- 
ria de video, que e 15360 no TRS; o nii- 
mero de linhas da tela (16) e o niimero 
dc caracieres por linha (64). Os coman- 
dos sao, ponanto, identicos. 

A rotina a seguir desloca a (eta para 
a direita. 



A memoria de video do eomputador 
comega no endere;;o 1024; assim, LDX 
#1024 carrega este valor no registro X. 
Li)B,X -I- carrega o acumulador B com 
o conteiido da posicao de memoria cu- 
jo enderefo esid em X. A seguir, soma 
"^>yl ao conteudo des.se registro, PSHB ar- 
"-'~^\na?:ena tempo rariamentc na pilha 
conteudo do acumulador B ^ que 6 o 
codigo do primt'iro caracierc do video. 

O comando LDB#3I carrega B com 
o numero 31. Esse registro e usado co- 
mo cent ado r. Em bora existam 32 carac- 
leres por linha, a opera(;5o de deslocar 
cada caractcre uma posic^o para a es- 
querda sera feita 31 vezes. A transferen- 
cia do pritneiro caractere da linha para 
a ultima posi^ao ^ feita {.epflradamente, 
depots que o resto da linha i deslocado 
para a esquerda, 

O comando LDA.X + carrega o acu- 
mulador A com conteudo do endere- 
t;o que esta em X; esse enderego esta uma 
posigao a frente do cnderetjo carregado 
an B, pois ioi soraado 1 a X. Depois dis- 
so, a inslruijao soma 1 a X novamente. 
STA - 2,X armazena o conteudo dc A 



no enderei^o situado duas posi^oes; an- 
tes do conteudo de X, Isso flea uma po- 
sigao a esquerda de onde esse caractere 
foi retirado, ja que X foi incrcmentado 
depois, 

A instrugao DECB "iubtrai 1 ao con- 
teiido de B, diminuindo esse valor de 3i 
ateO, Essa operagao afeta o sinalizador 
(oujiag zero), de forma que um resul- 
lado Oem qualquer opcragao estabeiece 
esse sinalimdor, BNE verifica se o sina- 
tizador foi estabelecido. Caso isto nao te- 
nha ocorrido, o curso do programa so- 
frera um desvio. JL'MP e o rotulo (ia- 
hef], de forma que o programa salta ate 
a instrugao LDA,X + e desloca para a 
esquerda o caractere seguinte, ate chegar 
ao final da linha, Quando isso aconte- 
ce, DKCB reduz o conteudo do registro 
B a e o sinalizador e estabelecido. Ago- 
ra, o salto nao ocorrc mais, e o progra- 
ma passa a instrugao seguinte a BNE. 

O comando PULS B recupera o va- 
lor no topo da pilha. colocando-o em B, 
STB - 1,X faz com que o conteudo de 
B seja arma2enado uma posigao atras do 
enderego em X, Esta e a uhima posigao 
da linha; o primeiro caractere e entao re- 
cuperado da pilha. Assim, a linha e to- 
da deslocada para a esquerda, e seu fi- 
nal passa a ser ocupado pelo primeiro 
caractere, 

A instrugao CMPX#1536compara o 
enderego em X com 1536, que e o ulti- 
mo enderego da tnemoria de video. BLO 
desviara o programa se o conteudo de 
X for menor que 1536 {.Branch if LOwer 
than). Loop e o rotulo, de forma que, se 
o programa nao deslocar toda a tela, 
Lhegando ao seu enderego final, o pro- 
grama Sahara para a instrugao LDB.X + 
e comegara a deslocar a linha seguinte, 

Se o registro X contiver 1536, o pro- 
grama tera deslocado toda a tela, e a ins- 
trugao seguinte sera executada. 

O comando RTS reiorna ao B.ASiC, 
Toda rotina em linguagem dt maquina 
deve lerminar com essa instrugao. Se i;.- 
so nao ocorrer, o microprocessador len- 
lara executar qualquer comando que es- 
teja apos o seu programa. 

O programa seguinte desloca a tcl.t 
para a direita, Traduza os mnem6nico^ 
Assembly para codigo dc maquina (os 
enderegcs cstao em decimal e de\em ^cr 
convertidos para hcxa), 

LDXI1536 
LOOP LDB,-X 
PSHS B 

LDBfSl 
JUMP LDA,-X 

STA 1,X^ 
DECB 

BNE JUMP 
PULS B 
STB.X 





DlGODiMAQUlNA 



IIIIIU 



CMPXI1024 
BGT LOOP 
RTS 

Este programa trabalha no seutido in- 
verse ao anterior, comegando pelo fim 
da memoria de video (1536). Ele deslo- 
ca as linhas da tela para a direiia, ate 
chegar ao endere^^o 1024, Na realidade, 
1536 e uma pos!(;ao posterior ao final da 
tela, mas o pos-byte, -X, subtrai 1 ao 
conieudo do registro X ap6s a execugao 
da instrufao LDX. Assim, se LDB, - X 
carregar B com o conieudo da liitima 
posi^ao da tela, o programa devera co- 
mespar com urn enderego que esta uma 
posii^ao na f rente, dentro do registro X, 

Com exce^:ao desse detalhe. o progra- 
ma funciona de maneira identica ao an- 
terior (contira o tamanho dos saitos que 
calcular, consukando a listagem). 



O Apple II ja vem com urn monitor. 
Para entrar, digite CALL- 15L Os eo- 

mandos especifieos estao no manual do 
computador. Para usar as rotinas em 
seus programas BASIC, basia acionar o 
comando CALL N, onde N e o endere- 
fo inicial da rotina em codigo. A orga- 
nizat^ao da memoria de video do Apple 
11 abriga duas paginas de video com di- 
ferentes modos de utiliza<;ao, alem de 
uma pagina de texto, A maior compli- 
cagao, porem, e a diferen(;a na ordem em 
que as linhas de texto ou de pontos sao 
representadas na tela e na memoria. A 
segunda linha de lexto na tela, por exem- 
plo, nao e o segundo con>unlo de 40 
bytes da memoria de video. 

Assim, para nao tornar muito com- 
plicado este primeiro programa em As- 
sembly para o Apple 11, fizemos com 
que ele desiocasse para a esquerda so- 
mente a primeira linha de video. 

Este programa nao funcionara no 
TK-2(XK). Todavia, os usuArios desse mi- 
cro nao precisam aprender a montar pro- 
gramas a mao, uma vez que dispoem do 
mini-Assembier. Use o enderefo inicial 
hexa 320 (800 em decimal). 



LDA 


tsao 




A9 00 


STA 


SFB 




8S FB 


LPA 


#$04 




A9 04 


STA 


SFC 




85 FC 


LDA 


1300 




A9 00 


STA 


$FE 




85 FE 


LDX 


• SOO 




AO 00 


LDA 


(SFB) 


,Y 


Bl FB 


STA 


$FD 




85 FD 


LDY 


iSOl 




AO 01 


LOOP LDA 


(SFB) 


■ If 


Bl FB 


DEY 






68 


STA 


(SFB) 


• Tf 


91 FB 


I NX 






ce 


my 






ce 



CPY #526 

BNE LOOP 

LDY IS27 

LDA SFD 

STA (SFB) ,y 
RET 

Use ainda este programa em BASIC: 



CO 


29 


DO 


F5 


AO 


27 


A5 


FD 


91 


FB 




60 



5 HOME 

10 FOB I • 

20 VTAB 1: 

) : 

30 NEXT 

40 FOB I - 

50 CALL 800 

60 NEXT 

70 GOTO 70 



1 TO 40 

PRINT CHR$ (64 + I 



1 TO 1000 



PROGRAMA NO APPLE II 



O comando LDA #S00 carrega no 
acumulador, e STA SFB coloca e.sise va- 
lor no enderei^o 0020. Analogamente, 
LDA #S04 e STA SFC colocam 04 em 
OOFC. Nao ha um comando ijnico que 
armazene valores diretamenie na 
memoria. 

O enderego da primeira posigao da 
memoria de video do Apple e 0400 {em 
hexa). OOFB e OOFC sao posi^oes da pa- 
gina da memoria. As posicoes dessa 
pagina requerem somente urn byte no 
sen endere^amento. LDA #$00 e STA 
SFE colocam em OOFE, posipao que 
sera usada como contador. 

A in-Struifao LDY #$00 carrega o 
registro-indice Y com o deslocamento 
(ou seja, 0, pois o programa tern que co- 
mecar no inicio da tela), LDA (FB), Y 
carrega o acumulador com o conteiido 
da posii;ao de memoria cujo endereco 
esta em OOFB e OOFC. mais um desloca- 
mento provocado pelo niimero que esta 
em Y. OOFB e OOFC apontam para a po- 
sigao 0400, inicio da tela de lextos. As- 
sim, essa instmcao posiciona o primei- 
ro caractere no acumulador. STA SFD 
o coloca na posigao OOFD. 

A seguir, LDY #$0 1 carrega o registro 
Y com i. LDA ($FB),Y carrega o acu- 
mulador com o conteudo da posi^ao de 
enderego dado por OOFB e OOFC, mais 
um deslocamento provocado por Y. Des- 
ta vez, com udo, Y contem 1 em vez de 
0. Assim, essa instrugao poe no acumu- 
lador o caractere da poslcao 0401. 

A instru(;ao DF.Y subtrai 1 ao regis- 
tro Y, e STA ($FB),Y coloca o caractere 
cujo codigo esta em A na posigao dada 
por OOFB e OOFC, mais o deslocamento 
em Y. Como Y foi diminuidode I nesse 
processo, ele tern como rcsultado a trans- 
t'erencia de cada caractere para uma po- 
.si(;ao k esquerda. 

O registro Y ten) 1 duas vezes soma- 
do ao seu conteudo por intermedio da 



repetigaodo comando IISV, apontando 
assim para a proxima posi^ao da tela 
CPY #S28 compara o conteudo de Y com 
28 em hexa, ou 40 em decimal, que e o 
total de caracteres por linha. BNE 
LOOP verifiea o sinalizador 0. Se ele 
nao for cstabelecido, o microprocessa- 
dor voltara para o enderefo rotuiado por 
LOOP e continuara de la. 

O comando BINE envia o programa 
de volta a LOOP ate que Y acabe de con- 
tar de a 40, inovendo os caracteres da 
linha para a esquerda, Quando o con- 
teiido de Y chega a 40, a condicao de 
BNE nao e saiisfeita e o microprocessa- 
dor continua na instrucao seguinie. 

A instru(;5oLDY#$27carrega Ycom 
27 hexa, ou 39 decimal. LDA SFD car- 
rega o acumulador com o conteudo da 
posicao de memoria OOFD. 

Ja o comando STA ($FB),Y coloca o 
conteiido do acumulador no endere^o 
dado por OOFB e OOFC, mais o desloca- 
mento em Y. Eie po.siciona o primeiro 
caractere da linha na poslcao 0427, que 
e a ultima da primeira linha de texto. 

A instrugao RTS diz ao microproces- 
sador para voliar ao BASIC. Qualquer 
rotina em linguagem de maqulna tern 
que terminal com RTS, caso conirario 
o microprocessador seguira memoria 
afora, tentando executar qualquer coisa 
que houver no caminho, O programa se- 
guinte dc-sloca a primeira iinha de video 
para a direita. Tente calcular os codigos 
correspondentes. 



LDA 


ISOO 




STA 


SFB 




LDA 


*$04 




STA 


SFC 




LDA 


ISOO 




STA 


SFE 




toy 


t$27 




LDA 


(SFB) 


.Y 


STA 


SFD 




LDY 


l$26 




LOOP LDA 


(SFB) 


• Y 


im 






STA 


(SFB) 


,Y 


DEX 






DEY 






CPY 


ISFF 




BNE 


LOOP 




LDY 


♦ SOO 




LDA 


SFD 




STA 


(SFB) 


■ ¥ 


RET 







Este programa opera da mesma for- 
ma que o anterior, exceto que somamos 
onde sublraimos e vice-versa, para que 
o deslocamento seja feito no sentido 
inverse. 

Os salios sao do mesmo tamanho, de 
forma que os valores calculados podem 
ser verificados na outra listagem (o sal- 
to inclui o final da tnstrugao BNE, ou 
seja.o byte que contem seu tamanho). 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIIIIIIIHBNO PROXIMO NUMEROBHIIIIIIIIII 



PROGRAMAgAG DE J.OGOS 

Acompanhe a criagSo de uma aventura e crie o seu prdprio jogo. Roteiros, personagens e mapas. 

PROGRAMApAO BASIC 

Formas de ampliar a utilizapao dos comandos grSficos e criar novas ilustra^oes na tela. Cores, cfrculos e arcos. 

PROGRAMAQAG BASIC 
que 6 programa^ao estruturada. Estruturas embutidas, Escolhas multiplas. 

c6digo de maquina 

Traduzir Assembly para c6digo de maquina: 
trabalho para o Apple II. 




.C60\GOOE 




pROG' 



Z^<^^^'^ 





